#!/usr/local/bin/perl -w

#
#     Zhejiang tianke
#     Author: Shangao
#     version 0.1
#     date: 2012-12-04
#     Licence: GPL
#
#     Summary:
#     This script evaluated the fq file
#     with the program FASTQC


use strict;
use warnings;

if(@ARGV<1){
   print "usage:<fastQ file>\n";
   exit;
}

my $input_file = shift;
my $fastQC_output_dir=$input_file."_fastQC_dir";
my $fastQC_command="nohup fastqc -o ".$fastQC_output_dir." -f fastq ".$input_file;
system("mkdir $fastQC_output_dir");
system($fastQC_command);
